home *** CD-ROM | disk | FTP | other *** search
/ Popular Request / By Popular Request (Arsenal Computer)(SysOptics Distribution System).ISO / amiga2 / jad30amy.lha / jade / lisp / prompt.jlc < prev    next >
Text File  |  1994-04-20  |  4KB  |  43 lines
  1.  
  2. (setq prompt-keymap (make-keylist) prompt-esc-keymap (make-keylist) prompt-buffer-list nil)
  3.  
  4. (bind-keys prompt-keymap "esc" (quote (setq next-keymap-path (quote (prompt-esc-keymap esc-keymap)))) "tab" (quote prompt-complete-word) "return" (quote prompt-enter-line) "ctrl-g" (quote (throw (quote prompt) nil)))
  5.  
  6. (bind-keys prompt-esc-keymap "?" (quote prompt-print-word-completions))
  7.  
  8. (defun prompt2 (prompt-comp-func &optional prompt-title prompt-start word-regexps) 55102 (lisp-code "DI0I1I2I3ⁿÇùL MF$√Ç¥å\tF HçKF&çHêJ\nH▒ëⁿÇ┼ëèS&ïëîSF&ì√Ç╬Ä&ïÅF&ìHÉqⁿÇ▌æÉ\t√ÇΓæÆ\tHôHöqⁿÇ∙òI▓ûö √Ç■æù\tHæÿ\tHÖF\"HÜ¢£¥\t\t\tH₧F&ƒHáísF!Hóç\nF&çHú\t■ü└ñÑ\t\nF#G▒HHª\tHKF$HE" [prompt-buffer prompt-line-pos prompt-completions-pos result prompt-buffer-list make-buffer "*prompt*" buffer-list set-buffer-special word-regexps 0 word-regexp 1 word-not-regexp "." "^|$" prompt-title insert "Enter string:" split-line prompt-start format "\n%s\n\n" "\n\n\n" "::Completions::\n" cursor-pos goto line-end prev-line 3 (prompt-keymap global-keymap) keymap-path (lisp-code "" [recursive-edit] 1) (quote prompt) delq posp copy-area line-start clear-buffer] 5))
  9.  
  10. (defun prompt-enter-line nil (lisp-code "dⁿÇì√ÇÅt" [prompt cursor-pos prompt-completions-pos line-end] 3))
  11.  
  12. (defun prompt-complete-word nil (lisp-code "DI0I1I2I3\t Çôå!çê\n ëè\n\"TF#HïbⁿÇ─îHìÄÅ\nHÉæ\t√üìÆbⁿÇτôöL \tHìÄÅ\nHÉò\t√üìJⁿüîîHû\tHôöù\n \tHÿJÖ √üìIE" [word word-pos comp-list num-found word-start left-char line-start copy-area cursor-pos funcall prompt-comp-func 0 beep delete-area prompt-completions-pos file-end title "No completions." 1 goto replace-string "Unique completion." prompt-print-completions make-completion-string format "%d completions."] 6))
  13.  
  14. (defun prompt-print-completions (comp-list &optional insert-pos) (lisp-code "D\t2\nHå\nHçn■Ç«êI▓KëçL HçMF&çH√ÇæE" [dup-pos prompt-completions-pos ipos delete-area file-end insert "\n" comp-list format "%s\n"] 4))
  15.  
  16. (defun prompt-print-word-completions nil (lisp-code "\t ÇÄåç\n\n\t" [prompt-print-completions funcall prompt-comp-func copy-area word-start left-char line-start cursor-pos] 6))
  17.  
  18. (defun prompt-complete-symbol (word) (lisp-code "\n\t\n" [mapcar symbol-name apropos concat 94 word] 6))
  19.  
  20. (defun prompt-complete-function (word) (lisp-code "\nå\n\n" [mapcar symbol-name apropos concat 94 word fboundp] 6))
  21.  
  22. (defun prompt-complete-variable (word) (lisp-code "\nå\n\n" [mapcar symbol-name apropos concat 94 word boundp] 6))
  23.  
  24. (defun prompt-complete-buffer (word) (lisp-code "\n\n" [delete-if-not (lambda (b) (lisp-code "\n" [string-head-eq b word] 3)) mapcar buffer-name buffer-list] 5))
  25.  
  26. (defun prompt-complete-filename (word) (lisp-code "D\t2\t4\t6åçêëèå\n\nE" [path-name word path base-name file directory-files files mapcar (lambda (x &aux y) (lisp-code "\nF$\t■Çæ\nF$H" [file-directory-p concat path x y 47] 4)) delete-if-not (lambda (f) (lisp-code "\n" [string-head-eq f file] 3))] 5))
  27.  
  28. (defun prompt-for-file (&optional prompt start-name) (lisp-code "q ÇêF H " [prompt "Enter filename:" prompt2 prompt-complete-filename start-name] 4))
  29.  
  30. (defun prompt-for-buffer (&optional prompt start) (lisp-code "│■Çè\tF Hq ÇôF\"H " [start buffer-name prompt "Enter buffer name:" prompt2 prompt-complete-buffer] 4))
  31.  
  32. (defun prompt-for-symbol (&optional prompt start) (lisp-code "y■Çêl]■ÇÉ\tF Hq ÇÖF\"Håç \t" [start symbol-name prompt "Enter name of symbol:" intern prompt2 prompt-complete-symbol symbol-word-regexps] 6))
  33.  
  34. (defun lisp-prompt (prompt &optional start) (lisp-code " " [prompt2 prompt-complete-symbol prompt start symbol-word-regexps] 5))
  35.  
  36. (defun prompt-for-function (&optional prompt start) (lisp-code "y■Çêl]■ÇÉ\tF Hq ÇÖF\"Håç \t" [start symbol-name prompt "Enter name of function:" intern prompt2 prompt-complete-function symbol-word-regexps] 6))
  37.  
  38. (defun prompt-for-variable (&optional prompt start) (lisp-code "y■Çêl]■ÇÉ\tF Hq ÇÖF\"Håç \t" [start symbol-name prompt "Enter name of variable:" intern prompt2 prompt-complete-variable symbol-word-regexps] 6))
  39.  
  40. (defun prompt-complete-from-list (word) (lisp-code "DI12■ÇáL\n■ÇùLKF!HMF\"H√ÇàHE" [prompt-list dst src string-head-eq word] 3))
  41.  
  42. (defun prompt-from-list (prompt-list prompt &optional start) (lisp-code " " [prompt2 prompt-complete-from-list prompt start] 4))
  43.